home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / door / ds40bqb.zip / BLCKDEMO.BAS next >
BASIC Source File  |  1991-10-24  |  1KB  |  27 lines
  1. ' $INCLUDE: 'DOORSORC.INT'
  2. PROGNAME$ = "UserBlock Demo"                    ' Door name
  3. RELEASE$ = "1.0"                                ' Door release
  4. CALL ClrScrn                                    ' Clear the screen
  5. LINE INPUT #1, UserFile$                        ' Get Drive/Path/Location of users file from config file
  6. CLOSE #1                                        ' Close config file
  7.  
  8. CALL ReadUsers(ERRCODE)                                         ' Read user's record from file
  9. IF ERRCODE = 1 THEN                                             ' If ErrCode 1 (Users file not found) then exit
  10.    CALL ExitDoor
  11. END IF
  12. IF ERRCODE = 2 THEN                                             ' If ErrCode 2 (Wrong BBS type) then exit
  13.    CALL Send("Not running PCBoard 14.x", No, Yes, 12)
  14.    CALL ExitDoor
  15. END IF
  16. IF ERRCODE = 3 THEN                                             ' If ErrCode 3 (UserFile$ not set correctly) then exit
  17.    CALL ExitDoor
  18. END IF
  19.  
  20. CALL Send("You are from " + UserBlock.CityState, No, Yes, 11)
  21. CALL Send("You have a access of " + STR$(UserBlock.Security), No, Yes, 12)
  22. CALL Send("You've been on " + STR$(UserBlock.TimesOn) + " times.", No, Yes, 13)
  23. CALL Send("The sysop comment is " + UserBlock.SysopComment, No, Yes, 14)
  24.  
  25. CALL ExitDoor
  26.  
  27.